home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 August / 64er_Magazin_86-08_1986_Markt__Technik_de_Side_A.d64 / demo modul33 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  450b  |  18 lines
  1. 100 rem beispiel "mitternachtsformel"
  2. 110 print "loesung einer quadratischen gleichung"
  3. 120 input "koeffizienten a,b,c ";a,b,c : print
  4. 130 d=b*b-4*a*c
  5. 140 case if d>=0
  6. 150 :    case if d>0
  7. 160 :         print "zwei loesungen"
  8. 170 :         print "x1 =";(-b+sqr(d))/(2*a)
  9. 180 :         print "x2 =";(-b-sqr(d))/(2*a)
  10. 190 :    case else
  11. 200 :         print "eine loesung"
  12. 210 :         print "x =";-b/(2*a)
  13. 220 :    case end
  14. 230 case else
  15. 240 :    print "keine reelle loesung"
  16. 250 case end
  17. 260 end
  18.